home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 April / CMCD0404.ISO / Software / Shareware / Multimedia / extrememov / extrememm2.6b3sharefull.exe / {app} / scripts / [AMAZON.COM] - (Full Import- 2° Generation) @Mehdi Bourmad 16_01_2003.txt < prev    next >
Encoding:
Text File  |  2003-09-11  |  11.6 KB  |  393 lines
  1. -----------------------------------------------
  2. -             eXtreme Movie Manager           -
  3. -            MagicScript Technology           -
  4. -          2003 Alessio "AleTsg" Viti         -
  5. -----------------------------------------------
  6. - Web :      AMAZON.COM                       -
  7. - Author :   Mehdi BOURMAD                    -
  8. - Date  :    16/01/2003                       -
  9. - Comments : Import All Information           -
  10. -----------------------------------------------
  11.  
  12. #MADEBY#=Mehdi BOURMAD
  13. #DATEBUILD#=16/01/2003
  14. #WEBSITE#=AMAZON.COM - (ENGLISH)
  15. #NOTE#=First release
  16. #SCRIPTQUALITY#=3
  17. #ICONQUALITY#=3
  18. #SCRIPTGENERATION#=2
  19.  
  20. #//WEBQUERY#=http://www.amazon.com/exec/obidos/search-handle-url/%20index=dvd&field-keywords=sleepy+hollow
  21. #WEBQUERY#=http://www.amazon.com/exec/obidos/search-handle-url/%20index=dvd&field-keywords=#MOVIE#
  22. #WEBQUERYID#=http://www.amazon.com/exec/obidos/tg/detail/-/#MOVIEUPDATEID#
  23.  
  24. #RIGHTPAGEFOUND#
  25.     #STARTREADWEB#
  26.     #FINDLINE#=Amazon#12##ONERROR#=*STOP*
  27.     #FIND#=Amazon#01##ONERROR#=*STOP*
  28.     #COMPUTECURSOR#=-1
  29.     #PUTCURSOR#=#01#
  30.     #PUT#=10#02#
  31.     #TAKEWORDLEN#=#03#,#01#,#02#
  32.     #PUT#=Amazon.com#04# 
  33.     #CONDITIONRIGHTPAGE# #03#<>#04#
  34. #ENDRIGHTPAGEFOUND#
  35.  
  36. #CREATEMOVIELIST#
  37.     #STARTREADWEB#
  38.     #WRITETITLELIST#=                          
  39.     #WRITETITLELIST#=Search result
  40.     #WRITETITLELIST#=-------------
  41.     #FINDLINE#=results for</font>#12##ONERROR#=*OK*
  42.     #PUT#=0#13#
  43.     #IF# #13#==#12#
  44.         #GOTO#=ENDMOVIES-END
  45.     #ENDIF#
  46.     :REPEATMOVIELIST-1 
  47.         #FIND#=<table width=168 border=0 cellspacing=0 cellpadding=4 align=center>#25# #ONERROR#=*OK* //the end of the list
  48.         #PUTCURSOR#=#21#
  49.         #SETCURSOR#=1
  50.         #FIND#=results for</font>#12##ONERROR#=*OK*
  51.         :REPEATMOVIELIST-2
  52.           // Get item value
  53.           #FIND#=width=100% valign=top#01# #ONERROR#=*OK*
  54.                 #IF# #01#==#13#
  55.             // if the list is finish, going out
  56.             #GOTO#=ENDMOVIES
  57.         #ENDIF#
  58.         #IF# #01#>>#25#
  59.             // if the list is over the </OL> it means that is finish
  60.             #GOTO#=ENDMOVIES
  61.         #ENDIF#
  62.         #FIND#=href#01# #ONERROR#=*OK*
  63.         #FIND#=detail#01# #ONERROR#=*OK*
  64.         #FIND#=-/#01# #ONERROR#=*OK*
  65.         #FIND#=/#01# #ONERROR#=*OK*
  66.         #COMPUTECURSOR#=+1
  67.         #FIND#=/qid=#02# #ONERROR#=*OK*
  68.         #TAKEWORD#=#06#,#01#,#02#
  69.           // Get item name
  70.           #FIND#=dvd>#01# #ONERROR#=*OK*
  71.                 #IF# #01#==#13#
  72.             // if the list is finish, going out
  73.             #GOTO#=ENDMOVIES
  74.         #ENDIF#
  75.         #IF# #01#>>#25#
  76.             // if the list is over the </OL> it means that is finish
  77.             #GOTO#=ENDMOVIES
  78.         #ENDIF#
  79.         #FIND#=>#04# #ONERROR#=*OK*
  80.         #COMPUTECURSOR#=+1
  81.         #FIND#=</#05# #ONERROR#=*OK*
  82.         #TAKEWORD#=#07#,#04#,#05#
  83.         #CHECKVARIABLE#=#07#
  84.         #STARTDELETETAGS#
  85.         #STARTSUBSTITUTETAGS#
  86.         #WRITETITLELIST#=http://www.amazon.com/exec/obidos/tg/stores/detail/-/dvd/#06#/tech-info/    ---> #07#
  87.         #//WRITETITLELIST#=http://amazon.com#06#    ---> #07#
  88.         #GOTO#=REPEATMOVIELIST-2
  89.         :ENDMOVIES
  90.      :ENDMOVIES-END
  91.     //-----------------------------------------------------------------------
  92. #ENDCREATEMOVIELIST#
  93.  
  94. #MOVIETITLE#
  95.     #STARTREADWEB#
  96.     #FINDLINE#=<b class="sans">#12##ONERROR#=*STOP*
  97.     #FIND#=>#01# #ONERROR#=*STOP*
  98.     #FIND#=<#02# #ONERROR#=*STOP*
  99.     #TAKEWORD#=#03#,#01#,#02#
  100.     #CHECKVARIABLE#=#03#
  101.     #STARTDELETETAGS#
  102.     #STARTSUBSTITUTETAGS#
  103.     #TITLE#=#03# #ONERROR#=*ASK*
  104. #ENDMOVIETITLE#
  105.  
  106. #DIRECTOR#
  107.     // Get Movie ID
  108.     #STARTREADWEB#
  109.     #FINDLINE#=rating.asin.1#12##ONERROR#=*STOP*
  110.     #FIND#==#01# #ONERROR#=*STOP*
  111.     #FIND#=>#02# #ONERROR#=*STOP*
  112.     #TAKEWORD#=#03#,#01#,#02#
  113.     #CHECKVARIABLE#=#03#
  114.     #STARTDELETETAGS#
  115.     #STARTSUBSTITUTETAGS#
  116.     // Load "glance" page
  117.     #STRING#=#04#=http://www.amazon.com/exec/obidos/tg/stores/detail/-/dvd/#03#/glance/
  118.     #OPENNEWWEB#=#04#
  119.     #STARTREADWEB#
  120.     #PUT#=0#11#
  121.     #FINDLINE#=Director:#10##ONERROR#=*STOP*
  122.     #FIND#=">#01##ONERROR#=*STOP*
  123.     #COMPUTECURSOR#=+1
  124.     #PUTCURSOR#=#01#
  125.     #FIND#=<#02##ONERROR#=*STOP*
  126.     #TAKEWORD#=#03#,#01#,#02#
  127.     #CHECKVARIABLE#=#03#
  128.     #STARTDELETETAGS#
  129.     #STARTSUBSTITUTETAGS#
  130.     #TAKEDIRECTOR#=#03# #ONERROR#=*ASK*
  131.     // Close "glance" page
  132.     #RESTOREWEB#
  133. #ENDDIRECTOR#
  134.  
  135. #ACTORS#
  136.     // Get Movie ID
  137.     #STARTREADWEB#
  138.     #FINDLINE#=rating.asin.1#12##ONERROR#=*STOP*
  139.     #FIND#==#01# #ONERROR#=*STOP*
  140.     #FIND#=>#02# #ONERROR#=*STOP*
  141.     #TAKEWORD#=#03#,#01#,#02#
  142.     #CHECKVARIABLE#=#03#
  143.     #STARTDELETETAGS#
  144.     #STARTSUBSTITUTETAGS#
  145.     // Load "actors" page
  146.     #STRING#=#04#=http://www.amazon.com/exec/obidos/tg/stores/detail/-/dvd/#03#/contents/
  147.     #OPENNEWWEB#=#04#
  148.     #STARTREADWEB#
  149.     #PUT#=0#11#
  150.     #FINDLINE#=Cast List</b>#10##ONERROR#=*STOP*
  151.     #//FIND#=<hr#22##ONERROR#=*STOP*
  152.     #FIND#=keywords=%20%20">#22##ONERROR#=*STOP*
  153.     #STARTREADWEB#
  154.     #FINDLINE#=Cast List</b>#10##ONERROR#=*STOP*
  155.         #PUT#=0#41#
  156.         #PUT#=7#42#
  157.         :REPEATACTORS1
  158.             #IF# #41#>>#42#
  159.                 #GOTO#=ENDACTORS1
  160.             #ENDIF#
  161.             #FIND#=">#01##ONERROR#=*STOP*
  162.             #IF# #01#==#11#
  163.                 #GOTO#=ENDACTORS1
  164.             #ENDIF#
  165.             #PUTCURSOR#=#23#
  166.             // We have reached the end
  167.             #IF# #01#>>#22#
  168.                 #GOTO#=ENDACTORS1
  169.             #ENDIF#
  170.                 // Actor Name
  171.                 #FIND#=>#01##ONERROR#=*STOP*
  172.                 #FIND#= <#02##ONERROR#=*STOP*
  173.                 #TAKEWORD#=#03#,#01#,#02#
  174.                 #CHECKVARIABLE#=#03#
  175.                 #STARTDELETETAGS#
  176.                 #STARTSUBSTITUTETAGS#
  177.                 // Actor Rule
  178.                 #FIND#=...#01##ONERROR#=*STOP*
  179.                 #IF# #01#<<#22#
  180.                     #COMPUTECURSOR#=+3
  181.                     #PUTCURSOR#=#01#
  182.                     #FIND#=<#02##ONERROR#=*STOP*
  183.                     #COMPUTECURSOR#=-1
  184.                     #PUTCURSOR#=#02#
  185.                     #TAKEWORD#=#33#,#01#,#02#
  186.                     #CHECKVARIABLE#=#33#
  187.                     #STARTDELETETAGS#
  188.                     #STARTSUBSTITUTETAGS#
  189.                     #STRING#=#03#=#03# (#33#)
  190.                 #ENDIF#
  191.                 #TAKEACTOR#=#03#
  192.                 #COMPUTEVAR#=#41#=+1
  193.                 #GOTO#=REPEATACTORS1
  194.         :ENDACTORS1
  195.     #RESTOREWEB#
  196. #ENDACTORS#
  197.  
  198. #STUDIO#
  199.     #STARTREADWEB#
  200.     #FINDLINE#=Studio:#10##ONERROR#=*STOP*
  201.     #PUT#=0#39#
  202.     #FIND#=: #01##ONERROR#=*STOP*
  203.     #COMPUTEVAR#=#01#=+1
  204.     #FIND#=<br>#02##ONERROR#=*STOP*
  205.     #TAKEWORD#=#03#,#01#,#02#
  206.     #CHECKVARIABLE#=#03#
  207.     #STARTDELETETAGS#
  208.     #STARTSUBSTITUTETAGS#
  209.     #TAKESTUDIO#=#03#
  210. #ENDSTUDIO#
  211.  
  212. #MOVIEID#
  213.     #STARTREADWEB#
  214.     #FINDLINE#=rating.asin.1#12##ONERROR#=*STOP*
  215.     #FIND#==#01# #ONERROR#=*STOP*
  216.     #FIND#=>#02# #ONERROR#=*STOP*
  217.     #TAKEWORD#=#03#,#01#,#02#
  218.     #CHECKVARIABLE#=#03#
  219.     #STARTDELETETAGS#
  220.     #STARTSUBSTITUTETAGS#
  221.     #TAKEMOVIEID#=#03#
  222. #ENDMOVIEID#
  223.  
  224. #POSTER#
  225.     // Get Movie ID
  226.     #STARTREADWEB#
  227.     #FINDLINE#=rating.asin.1#12##ONERROR#=*STOP*
  228.     #FIND#==#01# #ONERROR#=*STOP*
  229.     #FIND#=>#02# #ONERROR#=*STOP*
  230.     #TAKEWORD#=#03#,#01#,#02#
  231.     #CHECKVARIABLE#=#03#
  232.     #STARTDELETETAGS#
  233.     #STARTSUBSTITUTETAGS#
  234.     
  235.     #PUT#=0#09#
  236.     #STRING#=#50#=http://www.amazon.com/exec/obidos/tg/stores/detail/-/dvd/#03#/pictures/
  237.     #OPENNEWWEB#=#50#
  238.     #//STARTREADWEB#
  239.     #FINDLINE#=more-pictures#12##ONERROR#=*OK*
  240.     #IF# #12#==#09#
  241.         #GOTO#=NOPOSTER
  242.     #ENDIF#
  243.     #REPEAT#
  244.         #FIND#=http#01# #ONERROR#=*OK*
  245.         #IF# #01#<>#09#
  246.         // Get first part of url
  247.             #FIND#=TZZZ#02# #ONERROR#=*OK*
  248.             #TAKEWORD#=#03#,#01#,#02#
  249.             #//COMPUTECURSOR#=+1
  250.             #PUTCURSOR#=#04#
  251.             // Get second part of url
  252.             #FIND#="#05# #ONERROR#=*OK*
  253.             #TAKEWORD#=#06#,#04#,#05#
  254.             #STRING#=#07#=h#03#L#06#
  255.             #TAKEPOSTER#=#07#
  256.         #ENDIF#
  257.         #FIND#=more-pictures#12##ONERROR#=*OK*
  258.     #WHILE# #09#<>#12#    
  259.     :NOPOSTER
  260.     #RESTOREWEB#
  261. #ENDPOSTER#
  262.  
  263. #DELETETAGS#
  264.     #DELETEWORD#=         
  265.     #DELETEWORD#=        
  266.     #DELETEWORD#=       
  267.     #DELETEWORD#=      
  268.     #DELETEWORD#=     
  269.     #DELETEWORD#=    
  270.     #DELETEWORD#=   
  271.     #DELETEWORD#=  
  272.     #DELETEWORD#=
  273.  
  274.     #DELETEWORD#=    
  275.     #DELETEWORD#=</b>
  276.     #DELETEWORD#= 
  277.     #DELETEWORD#=</a>
  278.     #DELETEWORD#=<br>
  279.     #DELETEWORD#=</br>
  280.     #DELETEWORD#=<BR>
  281.     #DELETEWORD#=</BR>
  282.     #DELETEWORD#=</P>
  283.     #DELETEWORD#=</p>
  284.     #DELETEWORD#=</b>
  285.     #DELETEWORD#=<b>
  286.     #DELETEWORD#=</B>
  287.     #DELETEWORD#=<B>
  288.     #DELETEWORD#=</BLOCKQUOTE>
  289.     #DELETEWORD#=</blockquote>
  290. #ENDDELETETAGS#
  291.  
  292. #SUBSTITUTETAGS#
  293.     #SUBSTITUTEWORD#= = 
  294.     #SUBSTITUTEWORD#=¡=í
  295.     #SUBSTITUTEWORD#=¢=ó
  296.     #SUBSTITUTEWORD#=£=ú
  297.     #SUBSTITUTEWORD#=¤=ñ
  298.     #SUBSTITUTEWORD#=¥=Ñ
  299.     #SUBSTITUTEWORD#=¦=ª
  300.     #SUBSTITUTEWORD#=§=º
  301.     #SUBSTITUTEWORD#=¨=¿
  302.     #SUBSTITUTEWORD#=©=⌐
  303.     #SUBSTITUTEWORD#=ª=¬
  304.     #SUBSTITUTEWORD#=«=½
  305.     #SUBSTITUTEWORD#=¬=¼
  306.     #SUBSTITUTEWORD#=­=¡
  307.     #SUBSTITUTEWORD#=®=«
  308.     #SUBSTITUTEWORD#=¯=»
  309.     #SUBSTITUTEWORD#=°=░
  310.     #SUBSTITUTEWORD#=±=▒
  311.     #SUBSTITUTEWORD#=²=▓
  312.     #SUBSTITUTEWORD#=³=│
  313.     #SUBSTITUTEWORD#=´=┤
  314.     #SUBSTITUTEWORD#=µ=╡
  315.     #SUBSTITUTEWORD#=¶=╢
  316.     #SUBSTITUTEWORD#=·=╖
  317.     #SUBSTITUTEWORD#=¸=╕
  318.     #SUBSTITUTEWORD#=¹=╣
  319.     #SUBSTITUTEWORD#=º=║
  320.     #SUBSTITUTEWORD#=»=╗
  321.     #SUBSTITUTEWORD#=¼=╝
  322.     #SUBSTITUTEWORD#=½=╜
  323.     #SUBSTITUTEWORD#=¾=╛
  324.     #SUBSTITUTEWORD#=¿=┐
  325.     #SUBSTITUTEWORD#=À=└
  326.     #SUBSTITUTEWORD#=Á=┴
  327.     #SUBSTITUTEWORD#=Â=┬
  328.     #SUBSTITUTEWORD#=Ã=├
  329.     #SUBSTITUTEWORD#=Ä=─
  330.     #SUBSTITUTEWORD#=Å=┼
  331.     #SUBSTITUTEWORD#=Æ=╞
  332.     #SUBSTITUTEWORD#=Ç=╟
  333.     #SUBSTITUTEWORD#=È=╚
  334.     #SUBSTITUTEWORD#=É=╔
  335.     #SUBSTITUTEWORD#=Ê=╩
  336.     #SUBSTITUTEWORD#=Ë=╦
  337.     #SUBSTITUTEWORD#=Ì=╠
  338.     #SUBSTITUTEWORD#=Í=═
  339.     #SUBSTITUTEWORD#=Î=╬
  340.     #SUBSTITUTEWORD#=Ï=╧
  341.     #SUBSTITUTEWORD#=Ð=╨
  342.     #SUBSTITUTEWORD#=Ñ=╤
  343.     #SUBSTITUTEWORD#=Ò=╥
  344.     #SUBSTITUTEWORD#=Ó=╙
  345.     #SUBSTITUTEWORD#=Ô=╘
  346.     #SUBSTITUTEWORD#=Õ=╒
  347.     #SUBSTITUTEWORD#=Ö=╓
  348.     #SUBSTITUTEWORD#=×=╫
  349.     #SUBSTITUTEWORD#=Ø=╪
  350.     #SUBSTITUTEWORD#=Ù=┘
  351.     #SUBSTITUTEWORD#=Ú=┌
  352.     #SUBSTITUTEWORD#=Û=█
  353.     #SUBSTITUTEWORD#=Ü=▄
  354.     #SUBSTITUTEWORD#=Ý=▌
  355.     #SUBSTITUTEWORD#=Þ=▐
  356.     #SUBSTITUTEWORD#=ß=▀
  357.     #SUBSTITUTEWORD#=à=α
  358.     #SUBSTITUTEWORD#=á=ß
  359.     #SUBSTITUTEWORD#=â=Γ
  360.     #SUBSTITUTEWORD#=ã=π
  361.     #SUBSTITUTEWORD#=ä=Σ
  362.     #SUBSTITUTEWORD#=å=σ
  363.     #SUBSTITUTEWORD#=æ=µ
  364.     #SUBSTITUTEWORD#=ç=τ
  365.     #SUBSTITUTEWORD#=è=Φ
  366.     #SUBSTITUTEWORD#=é=Θ
  367.     #SUBSTITUTEWORD#=ê=Ω
  368.     #SUBSTITUTEWORD#=ë=δ
  369.     #SUBSTITUTEWORD#=ì=∞
  370.     #SUBSTITUTEWORD#=í=φ
  371.     #SUBSTITUTEWORD#=î=ε
  372.     #SUBSTITUTEWORD#=ï=∩
  373.     #SUBSTITUTEWORD#=ð=≡
  374.     #SUBSTITUTEWORD#=ñ=±
  375.     #SUBSTITUTEWORD#=ò=≥
  376.     #SUBSTITUTEWORD#=ó=≤
  377.     #SUBSTITUTEWORD#=ô=⌠
  378.     #SUBSTITUTEWORD#=õ=⌡
  379.     #SUBSTITUTEWORD#=ö=÷
  380.     #SUBSTITUTEWORD#=÷=≈
  381.     #SUBSTITUTEWORD#=ø=°
  382.     #SUBSTITUTEWORD#=ù=∙
  383.     #SUBSTITUTEWORD#=ú=·
  384.     #SUBSTITUTEWORD#=û=√
  385.     #SUBSTITUTEWORD#=ü=ⁿ
  386.     #SUBSTITUTEWORD#=ý=²
  387.     #SUBSTITUTEWORD#=þ=■
  388.     #SUBSTITUTEWORD#=ÿ= 
  389.     #SUBSTITUTEWORD#="="
  390. #ENDSUBSTITUTETAGS#
  391.  
  392.  
  393.